-module ( web ).
-export ( [start/0] ).

start() ->
  {_, Pid} = inets:start( httpd, [
      { port, 8080 },
      { server_name, "httpd_test" },
      { server_root,"/web_root" },
      { document_root, "/web_root/htdocs" },
      { bind_address, "localhost" } ] ),

  httpd:info( Pid ),
  loop().

loop() ->
  receive
  after 1000 ->
    io:format( "Tick~n", [] ),
    loop()
  end.
